home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / GMS / Source / Asm / UsingObjects / OBJ.Screen.s next >
Encoding:
Text File  |  1997-04-27  |  1.3 KB  |  61 lines
  1.  
  2.     INCDIR    "INCLUDES:"
  3.     INCLUDE    "games/games.i"
  4.  
  5.     SECTION    "Start",CODE
  6.  
  7. Start:    cmp.l    #"GKEY",d0    ;d0 = Are we being called from GMS?
  8.     bne.s    .exit    ;>> = Called from DOS, exit safely.
  9.     move.l    #Objects,d0    ;d0 = Return pointer to start of data.
  10.     rts
  11.  
  12. .exit    moveq    #$00,d0
  13.     rts
  14.  
  15. ;---------------------------------------------------------------------------;
  16.  
  17.     SECTION    "ObjectData",DATA
  18.  
  19. Objects    dc.l    "GOBJ"    ;Header.
  20.  
  21. OBJ_GameScreen:
  22.     dc.l    "TAGS"    ;Structure ID.
  23.     dc.l    .next    ;Pointer to next object.
  24.     dc.b    "Screen",0    ;Name.
  25.     even
  26. .data    dc.l    TAGS_GAMESCREEN,0
  27.     dc.l    GSA_AmtColours,16
  28.     dc.l    GSA_ScrWidth,640
  29.     dc.l    GSA_ScrHeight,256
  30.     dc.l    GSA_Planes,4
  31.     dc.l    GSA_Attrib,CENTRE
  32.     dc.l    GSA_ScrMode,HIRES|LACED
  33.     dc.l    GSA_ScrType,ILBM
  34.     dc.l    TAGEND
  35.  
  36. .next ;---------------------------------------------------------------------;
  37.  
  38. OBJ_Picture:
  39.     dc.l    "TAGS"    ;Structure ID.
  40.     dc.l    .next    ;Pointer to next object.
  41.     dc.b    "Picture",0    ;Name.
  42.     even
  43. .data    dc.l    TAGS_PICTURE,0
  44.     dc.l    PCA_AmtColours,16
  45.     dc.l    PCA_Width,640
  46.     dc.l    PCA_Height,256 
  47.     dc.l    PCA_Planes,4
  48.     dc.l    PCA_ScrMode,HIRES|LACED
  49.     dc.l    PCA_ScrType,ILBM
  50.     dc.l    PCA_Options,GETPALETTE|VIDEOMEM
  51.     dc.l    PCA_File,.file
  52.     dc.l    TAGEND
  53.  
  54. .file    dc.b    "GMS:demos/data/PIC.Pic640x256",0
  55.     even
  56.  
  57. .next ;---------------------------------------------------------------------;
  58.  
  59.     dc.l    "OEND"
  60.  
  61.